home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / swag / egavga.swg / 0007_Text fading on a VGA.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  765b  |  41 lines
  1. {
  2.  Here is some code to try For Text fading on a vga...
  3.  by Sean Palmer
  4. }
  5.  
  6. Const
  7.   tableReadIndex    = $3C7;
  8.   tableWriteIndex   = $3C8;
  9.   tableDataRegister = $3C9;
  10.  
  11. Procedure setColor(color, r, g, b : Byte); Assembler;
  12. Asm {set DAC color}
  13.   mov dx, tableWriteIndex;
  14.   mov al, color;
  15.   out dx, al;
  16.   inc dx;
  17.   mov al, r;
  18.   out dx, al;
  19.   mov al, g;
  20.   out dx, al;
  21.   mov al, b;
  22.   out dx, al;
  23. end; {Write index now points to next color}
  24.  
  25. Function getColor(color : Byte) : LongInt; Assembler;
  26. Asm {get DAC color}
  27.   mov dx, tableReadIndex;
  28.   mov al, color;
  29.   out dx, al;
  30.   add dx, 2;
  31.   cld;
  32.   xor bh, bh;
  33.   in al, dx;
  34.   mov bl, al;
  35.   in al, dx;
  36.   mov ah, al;
  37.   in al, dx;
  38.   mov dx, bx;
  39. end; {read index now points to next color}
  40.  
  41.